home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Graphics / Misc / Wood.0.72 / Sources / DGPrintInfo.m < prev    next >
Encoding:
Text File  |  1994-06-03  |  1.4 KB  |  101 lines
  1.  
  2. #import "DGPrintInfo.h"
  3.  
  4. static NXAtom rcsSTR;
  5.  
  6. @implementation DGPrintInfo
  7.  
  8. + initialize
  9. {
  10.     if(self == [DGPrintInfo class]){
  11.         rcsSTR = NXUniqueString("Wood-DGPrintInfo");
  12.     }
  13.     return self;
  14. }
  15.  
  16. + (const char *)rcsId
  17. {
  18.     return rcsSTR;
  19. }
  20.  
  21. - write:(NXTypedStream *)stream
  22. {
  23.     [super write:stream];
  24.     NXWriteTypes(stream,"iiic",&horizontalPages,&verticalPages,&unit,&printMarker);
  25.     return self;
  26. }    
  27.  
  28. - read:(NXTypedStream *)stream
  29. {
  30.     [super read:stream];
  31.     NXReadTypes(stream,"iiic",&horizontalPages,&verticalPages,&unit,&printMarker);
  32.     return self;
  33. }
  34.  
  35. - setPrintMarker:(char)aMarker
  36. {
  37.     printMarker = aMarker;
  38.     return self;
  39. }
  40.  
  41. - setVerticalPages:(int)vPages
  42. {
  43.     verticalPages = vPages;
  44.     return self;
  45. }
  46.  
  47. - setHorizontalPages:(int)hPages
  48. {
  49.     horizontalPages = hPages;
  50.     return self;
  51. }
  52.  
  53. - setUnit:(int)aUnit
  54. {
  55.     unit = aUnit;
  56.     return self;
  57. }
  58.  
  59. - (char)printMarker
  60. {
  61.     return printMarker;
  62. }
  63.  
  64. - getScaledPageSize:(NXSize *)aSize
  65. {
  66.     NXCoord lm,rm,tm,bm;
  67.     float scF;
  68.     
  69.     [self getMarginLeft:&lm right:&rm top:&tm bottom:&bm];
  70.     scF = [self scalingFactor];
  71.     aSize->width = scF * (NX_WIDTH([self paperRect]) - lm - rm);
  72.     aSize->height = scF * (NX_HEIGHT([self paperRect]) - tm -bm);
  73.     return self;
  74. }
  75.  
  76. - (int)verticalPages
  77. {
  78.     return verticalPages;
  79. }
  80.  
  81. - (int)horizontalPages
  82. {
  83.     return horizontalPages;
  84. }
  85.  
  86. - (int)unit
  87. {
  88.     return unit;
  89. }
  90.  
  91. - init
  92. {
  93.     [super init];
  94.     printMarker = '\000';
  95.     horizontalPages = verticalPages = unit = 1;
  96.     return self;
  97. }
  98.  
  99.  
  100. @end
  101.